0 PRINT"[147]":POKE646,1:POKE53280,0:POKE53281,0
1 REM ==================================
2 REM    COMMODARES PROBLEM #36-3 :
3 REM    LIFE TIMES
4 REM    SOLUTION BY
5 REM    CLIFFORD DEDMORE
6 REM ==================================
10 T$(1)="BC":INPUTY,A:FORK=1TO100:Y=Y-A:PRINTK,ABS(Y)-(Y<1);T$(-(Y<1)):NEXT